home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 June (IDG) / Macworld_June_2000.iso / Shareware World / Utilities / Databasing / Troi-File-Plug-in2.0 / DeleteFolder.fp3 (.txt) < prev    next >
Encoding:
FileMaker Pro Database  |  2000-03-21  |  32.0 KB  |  137 lines  |  [FMP3/FMP3]
  1.  Copyright 1984-1998 FileMaker, Inc. 
  2. HBAM2016AUG95
  3. Pro 3.0
  4. HBAM3016AUG95@
  5. kZo{s
  6. o{kZg9^
  7. g9kZs
  8. o{kZg9c
  9. g9kZo{s
  10. o{kZg9g9
  11. g9kZkZo{s
  12. o{kZkZ
  13. kZkZo{o{s
  14. o{o{s
  15. o{kZc
  16. g9kZo{w
  17. kZg9^
  18. g9o{s
  19. o{g9c
  20. 1st Quarter
  21. 2nd Quarter
  22. 3rd Quarter
  23. 4th Quarter
  24. 3/21/00
  25. _GDESTINATIONFILE
  26. _GERRORCODE
  27. _GFOLDERTODELETE
  28. _GSWITCHES
  29. __HELP FIELDS__
  30. __SHOWCALC
  31. _gFolderToDeleteB
  32. _gErrorCodeB
  33. _gDestinationFileB
  34. _gSwitchesB
  35. __Help fields__B
  36. __ShowCalcB
  37. AC"External( ""TrFile-DeleteFolder"", """ &
  38.  & "|"  & 
  39.  & """)"
  40. "External( "TrFile-DeleteFolder", "
  41. Kes:Overview.txt2
  42. menuB
  43. DeleteFolder
  44. SelectFolder
  45.     Open File
  46. DeleteFolder
  47. A2This script will get let the user select a folder.Be
  48. |("TrFile-DeleteFolder"
  49.  & "|" & 
  50. TrFile-DeleteFolder
  51. Cancel
  52. The folder is deleted!E
  53. Cancel
  54. An error occured. The folder was not deleted!
  55. SelectFolder
  56. deleteE
  57. DeleteFolderF'This file shows how to delete folders.
  58.  2000 Troi AutomatiseringNEType in the path of the folder to delete (or select with the button).g
  59. switch
  60. (A=This is the commando that is given to the plug-in:
  61. ABAI>>
  62. Select folder
  63. This are possible error codes:
  64. $$-1 = CANCELED
  65. $$-37  = Bad name in the file system (bdNamErr)
  66. $$-47  = File is busy (delete) (fBsyErr)  cant delete because it is not empty
  67. $$-120 = Directory not found (dirNFErr) is not a directory or is a file
  68. Close Demo File
  69. If you add the switch below the folder including contents is deleted. The user is always given
  70. a warning. If you dont use this switch only empty folders are deleted!
  71. _gErrorCodeo<Warning: This is a powerful feature. Be careful what you do!
  72. A    Open File
  73.     Helvetica
  74. Geneva
  75. Times New Roman
  76. Palatino
  77. Courier
  78. Courier New
  79. A<Let the user select a folder. Start from the default Folder.B
  80. |("TrFile-SelectFolderDialog"
  81.  "-unused|Select a folder to delete:")
  82. TrFile-SelectFolderDialog
  83. "-unused|Select a folder to delete:|C;
  84.  2) <> "$$"
  85. |("TrFile-FileSpec To FullPath"
  86. TrFile-FileSpec To FullPath
  87. k{k|w
  88. [=g\gYg\.T
  89. g\c[_]c\ozc\g\[]g\c[o{c[g\[\g\24
  90. OYBw*
  91. _ZkZ[ZkZ_ZkZOZkZ[ZkZ_Zw
  92. k]k]{
  93. g\g=5
  94. 5sF6g]F
  95. o|g]k}
  96. (LIST
  97. LISTA"-deleteAllSubFoldersAndAllContents
  98. VDEFA(
  99. switch
  100.     k]k]s
  101. o|g]{
  102. k]k]w
  103. Nv_:5
  104. g=g<_;w
  105. o\o}5
  106. k=JW1
  107. o\g{1
  108. g=k]5
  109. NvkZ2
  110. s}g]k\
  111. g=g<w
  112. g}k=o
  113. o^k{k}
  114. g]k=k
  115. g}k]o}
  116. Pro 3.0 - 4.0F!
  117. Sunday
  118. Monday
  119. Tuesday
  120.     Wednesday
  121. Thursday
  122. Friday
  123. Saturday
  124. January
  125. February
  126. March
  127. April
  128. August
  129.     September
  130. October
  131. November
  132. December
  133. 1st Quarter
  134. 2nd Quarter
  135. 3rd Quarter
  136. 4th Quarter
  137.